object SplitInfoForm: TSplitInfoForm
  Left = 196
  Top = 126
  Width = 792
  Height = 480
  Caption = #20986#21475#27969#27700#25286#20998#26126#32454
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbl3: TLabel
    Left = 32
    Top = 24
    Width = 70
    Height = 13
    Caption = #20837#21475#36335#27573#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #24188#22278
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbl4: TLabel
    Left = 32
    Top = 56
    Width = 56
    Height = 13
    Caption = #20837#21475#31449#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #24188#22278
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbl7: TLabel
    Left = 0
    Top = 73
    Width = 784
    Height = 15
    Align = alTop
    Caption = #34892#39542#36335#24452#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
  end
  object lbl9: TLabel
    Left = 0
    Top = 288
    Width = 784
    Height = 15
    Align = alTop
    Caption = #25286#20998#32467#26524#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
  end
  object grpStation: TGroupBox
    Left = 0
    Top = 0
    Width = 784
    Height = 73
    Align = alTop
    Caption = #36215#27490#31449':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object lbl1: TLabel
      Left = 16
      Top = 21
      Width = 70
      Height = 13
      Caption = #20837#21475#36335#27573#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #24188#22278
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl2: TLabel
      Left = 32
      Top = 45
      Width = 56
      Height = 13
      Caption = #20837#21475#31449#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #24188#22278
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl5: TLabel
      Left = 224
      Top = 21
      Width = 70
      Height = 13
      Caption = #20986#21475#36335#27573#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #24188#22278
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl6: TLabel
      Left = 224
      Top = 45
      Width = 56
      Height = 13
      Caption = #20986#21475#31449#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #24188#22278
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl8: TLabel
      Left = 440
      Top = 45
      Width = 42
      Height = 13
      Caption = #37329#39069#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #24188#22278
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lcbEnRoad: TwwDBLookupCombo
      Left = 96
      Top = 18
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ROADNAME'#9'20'#9'ROADNAME'#9#9)
      LookupTable = tblEnRoad
      LookupField = 'ROADID'
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object lcbEnStation: TwwDBLookupCombo
      Left = 96
      Top = 42
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'StationName'#9'20'#9'StationName'#9'F'#9)
      LookupTable = tblEnStation
      LookupField = 'StationID'
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object lcbExRoad: TwwDBLookupCombo
      Left = 312
      Top = 18
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ROADNAME'#9'20'#9'ROADNAME'#9#9)
      LookupTable = tblEnRoad
      LookupField = 'ROADID'
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object lcbExStation: TwwDBLookupCombo
      Left = 312
      Top = 42
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'StationName'#9'20'#9'StationName'#9'F'#9)
      LookupTable = tblEnStation
      LookupField = 'StationID'
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object btnQuery: TButton
      Left = 616
      Top = 40
      Width = 75
      Height = 21
      Caption = #35745#31639
      TabOrder = 4
      OnClick = btnQueryClick
    end
    object chk1: TCheckBox
      Left = 440
      Top = 21
      Width = 97
      Height = 17
      Caption = #23458#36710
      TabOrder = 5
    end
    object edtMoney: TEdit
      Left = 488
      Top = 40
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      TabOrder = 6
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 88
    Width = 784
    Height = 200
    Align = alTop
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object tvPath: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsPath
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '0.00000'
          Kind = skSum
          FieldName = 'CarToll'
          Column = tvPathCarToll
        end
        item
          Format = '0.00000'
          Kind = skSum
          FieldName = 'TruckToll'
          Column = tvPathTruckToll
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      object tvPathEnStation: TcxGridDBColumn
        Caption = #20837#21475#31449
        DataBinding.FieldName = 'EnStation'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'StationID'
        Properties.ListColumns = <
          item
            FieldName = 'StationName'
          end>
        Properties.ListSource = dsStation
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
        Options.GroupFooters = False
        Options.Grouping = False
      end
      object tvPathExStation: TcxGridDBColumn
        Caption = #20986#21475#31449
        DataBinding.FieldName = 'ExStation'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'StationID'
        Properties.ListColumns = <
          item
            FieldName = 'StationName'
          end>
        Properties.ListSource = dsStation
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
        Options.GroupFooters = False
        Options.Grouping = False
      end
      object tvPathDistance: TcxGridDBColumn
        Caption = #37324#31243'(km)'
        DataBinding.FieldName = 'Distance'
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
        Options.GroupFooters = False
        Options.Grouping = False
      end
      object tvPathCarPrice: TcxGridDBColumn
        Caption = #23458#36710#36153#29575
        DataBinding.FieldName = 'CarPrice'
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
        Options.GroupFooters = False
        Options.Grouping = False
      end
      object tvPathCarToll: TcxGridDBColumn
        Caption = #23458#36710#35745#36153
        DataBinding.FieldName = 'CarToll'
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
      end
      object tvPathTruckPrice: TcxGridDBColumn
        Caption = #36135#36710#36153#29575
        DataBinding.FieldName = 'TruckPrice'
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
        Options.GroupFooters = False
        Options.Grouping = False
      end
      object tvPathTruckToll: TcxGridDBColumn
        Caption = #36135#36710#35745#36153
        DataBinding.FieldName = 'TruckToll'
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
        Width = 72
      end
      object tvPathasOrdID: TcxGridDBColumn
        Caption = #36335#24452#39034#24207
        DataBinding.FieldName = 'OrdID'
        Options.Editing = False
        Options.Focusing = False
        Options.GroupFooters = False
        Options.Grouping = False
      end
    end
    object glPath: TcxGridLevel
      GridView = tvPath
    end
  end
  object cxGrid2: TcxGrid
    Left = 0
    Top = 303
    Width = 784
    Height = 150
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object tvSplit: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsSplit
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          FieldName = 'CarToll'
        end
        item
          Kind = skSum
          FieldName = 'TruckToll'
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      object tvSplitRoadId: TcxGridDBColumn
        Caption = #36335#27573
        DataBinding.FieldName = 'RoadId'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ROADID'
        Properties.ListColumns = <
          item
            FieldName = 'ROADNAME'
          end>
        Properties.ListSource = dsRoad
        Options.Editing = False
        Options.Grouping = False
        Width = 94
      end
      object tvSplitOwnerId: TcxGridDBColumn
        Caption = #31649#29702#26426#26500
        DataBinding.FieldName = 'OwnerId'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'OWNERID'
        Properties.ListColumns = <
          item
            FieldName = 'OWNERNAME'
          end>
        Properties.ListSource = dsOwner
        Options.Editing = False
        Options.Grouping = False
        Width = 135
      end
      object tvSplitPrice: TcxGridDBColumn
        Caption = #25286#20998#37329#39069
        DataBinding.FieldName = 'Price'
        Options.Editing = False
        Options.Filtering = False
        Options.Focusing = False
        Options.GroupFooters = False
        Options.Grouping = False
        Width = 139
      end
      object tvSplitSplitNo: TcxGridDBColumn
        Caption = #25286#20998#39034#24207
        DataBinding.FieldName = 'SplitNo'
        Options.Editing = False
        Options.Grouping = False
      end
    end
    object glSplit: TcxGridLevel
      GridView = tvSplit
    end
  end
  object dsEnRoad: TDataSource
    DataSet = tblEnRoad
    Left = 80
    Top = 120
  end
  object dsPath: TDataSource
    DataSet = msspPath
    Left = 704
    Top = 96
  end
  object dsStation: TDataSource
    DataSet = tblStation
    Left = 80
    Top = 176
  end
  object dsSplit: TDataSource
    DataSet = msspSplitValue
    Left = 400
    Top = 344
  end
  object dsRoad: TDataSource
    DataSet = tblRoad
    Left = 80
    Top = 248
  end
  object dsOwner: TDataSource
    DataSet = tblOwner
    Left = 216
    Top = 176
  end
  object tblEnStation: TMSTable
    TableName = 'TS_STATION'
    MasterFields = 'ROADID'
    DetailFields = 'ROADID'
    MasterSource = dsEnRoad
    Connection = MainForm.connSQL
    Left = 496
    Top = 136
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ROADID'
      end>
  end
  object tblEnRoad: TMSTable
    TableName = 'TS_ROAD'
    Connection = MainForm.connSQL
    Left = 136
    Top = 120
  end
  object tblStation: TMSTable
    TableName = 'TS_STATION'
    Connection = MainForm.connSQL
    Left = 136
    Top = 176
  end
  object tblRoad: TMSTable
    TableName = 'TS_ROAD'
    Connection = MainForm.connSQL
    Left = 136
    Top = 248
  end
  object tblOwner: TMSTable
    TableName = 'TS_OWNER'
    Connection = MainForm.connSQL
    Left = 264
    Top = 176
  end
  object msspPath: TMSStoredProc
    StoredProcName = 'usp_GetPathInfo'
    Connection = MainForm.connSQL
    SQL.Strings = (
      '{:RETURN_VALUE = CALL usp_GetPathInfo (:EnStation, :exStation)}')
    Left = 440
    Top = 200
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftInteger
        Name = 'EnStation'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'exStation'
        ParamType = ptInput
      end>
    CommandStoredProcName = 'usp_GetPathInfo'
  end
  object msspSplitValue: TMSStoredProc
    StoredProcName = 'usp_GetSplitValue'
    Connection = MainForm.connSQL
    SQL.Strings = (
      
        '{:RETURN_VALUE = CALL usp_GetSplitValue (:EnStation, :ExStation,' +
        ' :VehClass, :TotalToll)}')
    Left = 368
    Top = 200
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftInteger
        Name = 'EnStation'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'ExStation'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'VehClass'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'TotalToll'
        ParamType = ptInput
      end>
    CommandStoredProcName = 'usp_GetSplitValue'
  end
end
